home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / SupraProcs / Wash.AMOS < prev    next >
AMOS Basic Source Code Archive  |  1996-01-26  |  2.6 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: AMOS Basic Source Code Archive (archive/amosSrc).

You can browse this item here: Wash.AMOS

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert AMOS Basic Source Code Archive (archive/amosSrc) magic Supported
100% file AMOS Basic source code, tested default
99% file data default
50% TrID AMOS source (v1.34 Alt) default
49% TrID AMOS source (generic) default
100% gt2 Kopftext: 'AMOS Basic V134 ' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 33 34 20 |AMOS Bas|ic V134 |
|00000010| 00 00 0a 66 22 01 06 52 | 00 3c 20 20 20 2a 2a 2a |...f"..R|.<   ***|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 2a 2a 2a 20 20 00 00 | 22 01 06 52 00 3c 20 20 |****  ..|"..R.<  |
|00000060| 20 2a 2a 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 | ***    |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 20 20 20 20 20 20 2a 2a | 2a 20 00 00 23 01 06 52 |      **|* ..#..R|
|000000a0| 00 3e 20 20 20 2a 2a 2a | 20 20 20 20 20 20 20 20 |.>   ***|        |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 57 61 73 68 20 50 |        |  Wash P|
|000000c0| 72 6f 63 65 64 75 72 65 | 20 20 20 20 20 20 20 20 |rocedure|        |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 2a 2a 2a 20 20 20 |        |  ***   |
|000000e0| 00 00 22 01 06 52 00 3c | 20 20 20 2a 2a 2a 20 20 |.."..R.<|   ***  |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000120| 2a 2a 2a 20 00 00 22 01 | 06 52 00 3c 20 20 20 2a |*** ..".|.R.<   *|
|00000130| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |**      |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 62 79 20 20 20 20 |        |  by    |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 2a 2a 2a 20 | 00 00 22 01 06 52 00 3c |    *** |.."..R.<|
|00000170| 20 20 20 2a 2a 2a 20 20 | 20 20 20 20 20 20 20 20 |   ***  |        |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 20 | 2a 2a 2a 20 00 00 22 01 |        |*** ..".|
|000001b0| 06 52 00 3c 20 20 20 2a | 2a 2a 20 20 20 20 20 20 |.R.<   *|**      |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4a 6f 73 |        |     Jos|
|000001d0| 65 70 68 20 42 6f 6c 69 | 6e 20 20 20 20 20 20 20 |eph Boli|n       |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2a 2a 20 |        |    *** |
|000001f0| 00 00 22 01 06 52 00 3c | 20 20 20 2a 2a 2a 20 20 |.."..R.<|   ***  |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000230| 2a 2a 2a 20 00 00 22 01 | 06 52 00 3c 20 20 20 2a |*** ..".|.R.<   *|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 20 | 00 00 02 01 00 00 0e 01 |******* |........|
|00000280| 06 40 00 06 00 00 06 40 | 5f 77 61 73 68 00 00 74 |.@.....@|_wash..t|
|00000290| 00 3e 00 00 00 40 00 7c | 00 00 14 01 09 ea 00 3e |.>...@.||.......>|
|000002a0| 00 00 00 00 00 5c 00 3e | 00 00 01 40 00 5c 00 3e |.....\.>|...@.\.>|
|000002b0| 00 00 00 c8 00 5c 00 3e | 00 00 00 04 00 5c 0c 90 |.....\.>|.....\..|
|000002c0| 00 00 03 01 0d 34 00 00 | 12 01 0c fc 00 36 00 00 |.....4..|.....6..|
|000002d0| 00 00 00 5c 00 36 00 00 | 08 00 00 5c 00 36 00 00 |...\.6..|...\.6..|
|000002e0| 00 80 00 5c 00 36 00 00 | 00 08 00 00 31 01 00 06 |...\.6..|....1...|
|000002f0| 00 00 06 40 5f 77 61 73 | 68 00 00 74 00 3e 00 00 |...@_was|h..t.>..|
|00000300| 00 00 00 7c ff a2 00 3e | 00 00 00 02 00 54 00 06 |...|...>|.....T..|
|00000310| 00 00 06 40 5f 77 61 73 | 68 00 00 74 00 3e 00 00 |...@_was|h..t.>..|
|00000320| 00 03 00 7c ff a2 00 3e | 00 00 00 00 00 54 00 06 |...|...>|.....T..|
|00000330| 00 00 06 40 5f 77 61 73 | 68 00 00 74 00 3e 00 00 |...@_was|h..t.>..|
|00000340| 00 01 00 7c ff a2 00 3e | 00 00 00 03 00 00 06 01 |...|...>|........|
|00000350| 0b b8 00 3e 00 00 00 01 | 00 00 17 01 10 44 00 3e |...>....|.....D.>|
|00000360| 00 00 00 03 00 54 0e c8 | 00 3e 00 00 00 00 00 5c |.....T..|.>.....\|
|00000370| 00 3e 00 00 00 00 00 94 | 00 3e 00 00 00 3f 00 5c |.>......|.>...?.\|
|00000380| 00 3e 00 00 00 3f 00 00 | 17 01 10 44 00 3e 00 00 |.>...?..|...D.>..|
|00000390| 00 00 00 54 0e c8 00 3e | 00 00 00 40 00 5c 00 3e |...T...>|...@.\.>|
|000003a0| 00 00 00 40 00 94 00 3e | 00 00 00 80 00 5c 00 3e |...@...>|.....\.>|
|000003b0| 00 00 00 80 00 00 19 01 | 00 12 ff f4 06 80 5f 77 |........|......_w|
|000003c0| 61 73 68 00 00 84 00 3e | 00 00 00 20 00 5c 00 3e |ash....>|... .\.>|
|000003d0| 00 00 00 20 00 5c 00 3e | 00 00 00 c8 00 5c 00 3e |... .\.>|.....\.>|
|000003e0| 00 00 00 a0 00 8c 00 00 | 02 01 00 00 2c 01 03 76 |........|....,..v|
|000003f0| 00 00 05 6e 00 36 80 00 | 00 06 00 00 06 80 5f 77 |...n.6..|......_w|
|00000400| 61 73 68 00 00 84 00 06 | 00 00 08 00 5f 73 74 61 |ash.....|...._sta|
|00000410| 72 74 78 00 00 5c 00 06 | 00 06 08 00 5f 73 74 61 |rtx..\..|...._sta|
|00000420| 72 74 79 00 00 5c 00 06 | 00 0c 06 00 5f 65 6e 64 |rty..\..|...._end|
|00000430| 78 00 00 5c 00 06 00 12 | 06 00 5f 65 6e 64 79 00 |x..\....|.._endy.|
|00000440| 00 8c 00 00 02 00 00 00 | 12 04 06 52 00 1c 20 20 |........|...R..  |
|00000450| 57 61 73 68 20 61 6e 20 | 61 72 65 61 20 6f 66 20 |Wash an |area of |
|00000460| 74 68 65 20 73 63 72 65 | 65 6e 00 00 05 04 06 52 |the scre|en.....R|
|00000470| 00 02 20 20 00 00 1f 04 | 06 52 00 36 20 20 49 6e |..  ....|.R.6  In|
|00000480| 70 75 74 73 3a 20 20 5f | 53 54 41 52 54 58 2c 5f |puts:  _|STARTX,_|
|00000490| 53 54 41 52 54 59 20 20 | 43 6f 6f 72 64 69 6e 61 |STARTY  |Coordina|
|000004a0| 74 65 73 20 6f 66 20 75 | 70 2d 6c 65 66 74 20 20 |tes of u|p-left  |
|000004b0| 20 20 00 00 20 04 06 52 | 00 38 20 20 20 20 20 20 |  .. ..R|.8      |
|000004c0| 20 20 20 20 20 5f 45 4e | 44 58 2c 5f 45 4e 44 59 |     _EN|DX,_ENDY|
|000004d0| 20 20 20 20 20 20 43 6f | 6f 72 64 69 6e 61 74 65 |      Co|ordinate|
|000004e0| 73 20 6f 66 20 64 6f 77 | 6e 2d 72 69 67 68 74 20 |s of dow|n-right |
|000004f0| 20 20 00 00 2a 04 06 52 | 00 4c 20 20 20 20 20 20 |  ..*..R|.L      |
|00000500| 20 20 20 20 20 5f 57 41 | 53 48 28 29 20 20 20 20 |     _WA|SH()    |
|00000510| 20 20 20 20 20 20 57 61 | 73 68 20 74 61 62 6c 65 |      Wa|sh table|
|00000520| 3a 20 5f 57 41 53 48 28 | 78 29 3d 43 6f 6c 6f 72 |: _WASH(|x)=Color|
|00000530| 20 74 6f 20 63 68 61 6e | 67 65 20 63 6f 6c 6f 72 | to chan|ge color|
|00000540| 20 78 20 74 6f 20 00 00 | 04 04 06 52 00 00 00 00 | x to ..|...R....|
|00000550| 17 04 06 52 00 26 20 20 | 4f 75 74 70 75 74 73 3a |...R.&  |Outputs:|
|00000560| 20 57 61 73 68 73 20 61 | 6e 20 61 72 65 61 20 6f | Washs a|n area o|
|00000570| 66 20 74 68 65 20 73 63 | 72 65 65 6e 00 00 02 00 |f the sc|reen....|
|00000580| 00 00 0b 04 03 9e 00 06 | 00 00 06 40 5f 77 61 73 |........|...@_was|
|00000590| 68 00 00 74 00 7c 00 00 | 0e 04 02 be 00 14 0c 7c |h..t.|..|.......||
|000005a0| ff ac 00 3e 00 00 00 00 | 02 c6 03 ee 00 3e 00 00 |...>....|.....>..|
|000005b0| 00 2f 00 00 11 04 02 3c | 00 4a 00 06 00 18 04 00 |./.....<|.J......|
|000005c0| 62 6e 6b 00 ff a2 00 3e | 00 00 00 0a 00 94 00 3e |bnk....>|.......>|
|000005d0| 00 00 ff ff 00 00 13 07 | 02 be 00 1e 01 4c 00 74 |........|.....L.t|
|000005e0| 00 06 00 1e 02 00 62 00 | 00 7c ff a2 00 3e 00 00 |......b.|.|...>..|
|000005f0| 00 00 02 c6 02 9e 00 0a | 00 18 00 00 03 04 02 46 |........|.......F|
|00000600| 00 00 0c 04 20 f2 00 06 | 00 18 04 00 62 6e 6b 00 |.... ...|....bnk.|
|00000610| 00 5c 00 3e 00 00 00 40 | 00 00 12 04 02 3c 00 60 |.\.>...@|.....<.`|
|00000620| 00 06 00 24 02 00 63 00 | ff a2 00 3e 00 00 00 00 |...$..c.|...>....|
|00000630| 00 94 0a 5e ff ca 00 3e | 00 00 00 01 00 00 1d 07 |...^...>|........|
|00000640| 21 ca 01 40 00 74 00 06 | 00 18 04 00 62 6e 6b 00 |!..@.t..|....bnk.|
|00000650| 00 7c ff c0 00 06 00 24 | 02 00 63 00 00 5c 00 06 |.|.....$|..c..\..|
|00000660| ff ff 06 40 5f 77 61 73 | 68 00 00 74 00 06 00 24 |...@_was|h..t...$|
|00000670| 02 00 63 00 00 7c 00 00 | 03 04 02 46 00 00 06 04 |..c..|..|...F....|
|00000680| 00 0c 00 00 02 00 63 68 | 00 00 1b 04 02 be 00 2e |......ch|........|
|00000690| 00 06 00 00 08 00 5f 73 | 74 61 72 74 78 00 ff ac |......_s|tartx...|
|000006a0| 00 3e 00 00 00 00 02 c6 | 00 06 00 00 08 00 5f 73 |.>......|......_s|
|000006b0| 74 61 72 74 78 00 ff a2 | 00 3e 00 00 00 00 00 00 |tartx...|.>......|
|000006c0| 1b 04 02 be 00 2e 00 06 | 00 06 08 00 5f 73 74 61 |........|...._sta|
|000006d0| 72 74 79 00 ff ac 00 3e | 00 00 00 00 02 c6 00 06 |rty....>|........|
|000006e0| 00 06 08 00 5f 73 74 61 | 72 74 79 00 ff a2 00 3e |...._sta|rty....>|
|000006f0| 00 00 00 00 00 00 28 04 | 02 be 00 48 00 06 00 0c |......(.|...H....|
|00000700| 06 00 5f 65 6e 64 78 00 | ff ac 00 06 00 00 08 00 |.._endx.|........|
|00000710| 5f 73 74 61 72 74 78 00 | 02 c6 00 a6 00 06 00 0c |_startx.|........|
|00000720| 06 00 5f 65 6e 64 78 00 | 00 5c 00 06 00 00 08 00 |.._endx.|.\......|
|00000730| 5f 73 74 61 72 74 78 00 | 00 54 02 a8 00 18 ff dc |_startx.|.T......|
|00000740| 02 00 63 68 00 00 28 04 | 02 be 00 48 00 06 00 12 |..ch..(.|...H....|
|00000750| 06 00 5f 65 6e 64 79 00 | ff ac 00 06 00 06 08 00 |.._endy.|........|
|00000760| 5f 73 74 61 72 74 79 00 | 02 c6 00 a6 00 06 00 12 |_starty.|........|
|00000770| 06 00 5f 65 6e 64 79 00 | 00 5c 00 06 00 06 08 00 |.._endy.|.\......|
|00000780| 5f 73 74 61 72 74 79 00 | 00 54 02 a8 00 18 ff dc |_starty.|.T......|
|00000790| 02 00 63 68 00 00 1b 04 | 02 be 00 2e 00 06 00 00 |..ch....|........|
|000007a0| 08 00 5f 73 74 61 72 74 | 78 00 ff 8e 0b 58 02 c6 |.._start|x....X..|
|000007b0| 00 06 00 00 08 00 5f 73 | 74 61 72 74 78 00 ff a2 |......_s|tartx...|
|000007c0| 0b 58 ff ca 00 3e 00 00 | 00 01 00 00 19 04 02 be |.X...>..|........|
|000007d0| 00 2a 00 06 00 0c 06 00 | 5f 65 6e 64 78 00 ff 8e |.*......|_endx...|
|000007e0| 0b 58 02 c6 00 06 00 0c | 06 00 5f 65 6e 64 78 00 |.X......|.._endx.|
|000007f0| ff a2 0b 58 ff ca 00 3e | 00 00 00 01 00 00 1b 04 |...X...>|........|
|00000800| 02 be 00 2e 00 06 00 06 | 08 00 5f 73 74 61 72 74 |........|.._start|
|00000810| 79 00 ff 8e 0b 74 02 c6 | 00 06 00 06 08 00 5f 73 |y....t..|......_s|
|00000820| 74 61 72 74 79 00 ff a2 | 0b 74 ff ca 00 3e 00 00 |tarty...|.t...>..|
|00000830| 00 01 00 00 19 04 02 be | 00 2a 00 06 00 12 06 00 |........|.*......|
|00000840| 5f 65 6e 64 79 00 ff 8e | 0b 74 02 c6 00 06 00 12 |_endy...|.t......|
|00000850| 06 00 5f 65 6e 64 79 00 | ff a2 0b 74 ff ca 00 3e |.._endy.|...t...>|
|00000860| 00 00 00 01 00 00 19 04 | 00 06 00 2a 04 00 62 69 |........|...*..bi|
|00000870| 74 00 ff a2 00 3e 00 00 | 00 07 ff ca 00 74 00 06 |t....>..|.....t..|
|00000880| 00 00 08 00 5f 73 74 61 | 72 74 78 00 ff 58 00 3e |...._sta|rtx..X.>|
|00000890| 00 00 00 07 00 7c 00 00 | 1f 04 00 06 00 30 04 00 |.....|..|.....0..|
|000008a0| 6f 66 66 00 ff a2 00 74 | 00 06 00 00 08 00 5f 73 |off....t|......_s|
|000008b0| 74 61 72 74 78 00 ff c0 | 00 06 00 06 08 00 5f 73 |tartx...|......_s|
|000008c0| 74 61 72 74 79 00 ff e2 | 0b 58 00 7c ff ec 00 3e |tarty...|.X.|...>|
|000008d0| 00 00 00 08 00 00 46 04 | 00 12 ff e6 06 80 77 61 |......F.|......wa|
|000008e0| 73 68 6d 6c 00 84 0b 46 | 00 5c 01 40 00 74 00 06 |shml...F|.\.@.t..|
|000008f0| 00 18 04 00 62 6e 6b 00 | 00 7c 00 5c 00 06 00 30 |....bnk.|.|.\...0|
|00000900| 04 00 6f 66 66 00 00 5c | 00 06 00 2a 04 00 62 69 |..off..\|...*..bi|
|00000910| 74 00 00 5c 00 06 00 0c | 06 00 5f 65 6e 64 78 00 |t..\....|.._endx.|
|00000920| ff ca 00 06 00 00 08 00 | 5f 73 74 61 72 74 78 00 |........|_startx.|
|00000930| ff c0 00 3e 00 00 00 01 | 00 5c 00 06 00 12 06 00 |...>....|.\......|
|00000940| 5f 65 6e 64 79 00 ff ca | 00 06 00 06 08 00 5f 73 |_endy...|......_s|
|00000950| 74 61 72 74 79 00 ff c0 | 00 3e 00 00 00 01 00 8c |tarty...|.>......|
|00000960| 00 00 03 01 03 90 00 00 | 31 01 03 76 00 00 01 04 |........|1..v....|
|00000970| 00 24 d0 00 00 06 00 00 | 06 80 77 61 73 68 6d 6c |.$......|..washml|
|00000980| 00 84 00 06 00 00 04 00 | 73 63 62 00 00 5c 00 06 |........|scb..\..|
|00000990| 00 06 04 00 62 6e 6b 62 | 00 5c 00 06 00 0c 04 00 |....bnkb|.\......|
|000009a0| 6f 66 66 00 00 5c 00 06 | 00 12 04 00 62 69 74 00 |off..\..|....bit.|
|000009b0| 00 5c 00 06 00 18 04 00 | 77 69 64 00 00 5c 00 06 |.\......|wid..\..|
|000009c0| 00 1e 02 00 68 65 00 8c | 00 00 03 01 25 8c ff b4 |....he..|....%...|
|000009d0| 2a 1b 04 45 00 01 20 1b | 22 1b 24 5b 22 5b 20 5b |*..E.. .|".$["[ [|
|000009e0| 48 e7 00 1e 2c 0a 61 3e | 14 31 28 00 61 5c 06 40 |H...,.a>|.1(.a\.@|
|000009f0| ff ff 67 10 51 c9 ff f0 | 32 3c 00 07 d5 fc 00 00 |..g.Q...|2<......|
|00000a00| 00 01 60 e2 22 2b ff f0 | 20 2b ff ec 34 68 00 b2 |..`."+..| +..4h..|
|00000a10| dc 8a 24 46 51 cd ff d0 | 28 6b ff fc 2c 6b ff f8 |..$FQ...|(k..,k..|
|00000a20| 4c df 78 00 4e 75 28 48 | 3e 28 00 50 04 07 00 01 |L.x.Nu(H|>(.P....|
|00000a30| 18 3c 00 01 42 82 2c 5c | 16 36 a8 00 03 03 67 02 |.<..B.,\|.6....g.|
|00000a40| d4 04 d8 04 51 cf ff f0 | 4e 75 28 48 3e 28 00 50 |....Q...|Nu(H>(.P|
|00000a50| 04 07 00 01 18 3c 00 01 | 2c 5c 16 04 c6 02 67 06 |.....<..|,\....g.|
|00000a60| 03 f6 a8 00 60 04 03 b6 | a8 00 d8 04 51 cf ff ea |....`...|....Q...|
|00000a70| 4e 75 00 00 03 01 03 90 | 00 00 41 6d 42 73 00 00 |Nu......|..AmBs..|
+--------+-------------------------+-------------------------+--------+--------+